% P2-v16 - Copyright 1991 Silicon Beach Software, Inc. userdict/md known{currentdict md eq}{false}ifelse{bu}if currentdict/P2_d known not{/P2_b{P2_d begin}bind def/P2_d 33 dict def userdict/md known{currentdict md eq}{false}ifelse P2_b dup dup /mk exch def{md/pat known md/sg known md/gr known and and}{false}ifelse/pk exch def{md /setTxMode known}{false}ifelse/sk exch def mk{md/xl known}{false}ifelse/xk exch def/b{bind def}bind def/sa{matrix currentmatrix P2_tp concat aload pop}b/sb{matrix currentmatrix exch concat P2_tp matrix invertmatrix concat aload pop}b/se{matrix astore setmatrix}b/bb{gsave P2_tp concat newpath moveto}b/bc{curveto}b/bl {lineto}b/bx{closepath}b/bp{gsave eofill grestore}b/bf{scale 1 setlinewidth stroke}b/be {grestore}b/p{/gf false def}b p/g{/gf true def}b pk{/_pat/pat load def/_gr/gr load def}{/_gr {64.0 div setgray}b}ifelse sk{/_sTM/setTxMode load def}if/gx{/tg exch def}b 0 gx/x6{mk{av 68 gt {false}if}if}b/bps 8 string def/bpm[8 0 0 8 0 0]def/bpp{bps}def/obp{gsave setrgbcolor bps copy pop dup 0 get 8 div floor cvi 8 mul 1 index 2 get 8 div floor cvi 8 mul 2 index 1 get 8 div floor cvi 8 mul 8 4 index 3 get 8 div floor cvi 8 mul{2 index 8 3 index{1 index gsave translate 8 8 scale 8 8 false bpm/bpp load imagemask grestore}for pop}for pop pop pop grestore}b end P2_b pk end{/pat{P2_b gf{end pop sg P2_b mk end{av 68 gt{pop}if}if}{/_pat load end exec}ifelse}bind def}{/pat{P2_b pop _gr end}bind def}ifelse P2_b sk end{/setTxMode{P2_b/_sTM load end exec P2_b tg dup 0 ge{/_gr load end exec} {pop end}ifelse}bind def}{/setTxMode{pop P2_b tg dup 0 ge{/_gr load end exec}{pop end}ifelse}bind def}ifelse P2_b xk end{P2_d/_xl/xl load put/xl{P2_b 2 copy P2_tp 4 get add P2_tp 4 3 -1 roll put P2_tp 5 get add P2_tp 5 3 -1 roll put/_xl load end exec}bind def}if}if